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1 ABSTRACT 


This document is a description of and users manual for 
a USA FORTRAN TY computer program which plots the 
planforra and control points of a wing- The program 
also plots some of the configuration data such as the 
aspect ratio. The planform data is stored on a disc 
file which is created by a geometry program (ref- 1) . 
This program, the geometry program, and several other 
programs are used together in the analysis of lifting, 
thin wings in steady, subsonic flow according to a 
kernel function lifting surface theory- 
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PLOTTEE PHOGRfie 


2 IlSSaS INSTRaCTTONS 

2.1 INITIAL SETUP— 360/67 TSS 

For either batch or conversational processing the 
following TSS comiaands must be given. These commands 
are required once and only once for each user ID. The 
first three commands create the identification number 
file named IDFILS. This file contains four zeroes in 
binary form. • . 

SHAHE MED.au, FSABTM,INIDFILE • 

CDS KEDAN/IDFILE 
DELETE KEDAN 

SHARE MEDAN, FSARTH/LSPROG. 71 

2.2 C0N7ERSATT0NAL MODE — .360/67 TSS 

All integer data should be entered in a 1615 
format and all floating point data in 8F10.0 
format. 

After logging on proceed as follows: 

USER: AMES ZFTA 

AMES USYS'LIB 
JGB.LTBS SYSOLIB 
JBLS MEDAN 

USE.S: Issue DDEFs, for example: 

DDEF .FT03F001 ,,PLOTFILE,ONE 
DDEF FT04F00 1, ,P.LOT.FTLE.TSO 
(LDE7=3 and LDEV=4 respectively. See below 
for LDE7, ) , 

USSR: CALI PLOTM.S 

PROG: ENTER ID1,ID2 

USER: Enter identification numbers, ID1 and ID2. 

IP1 

Identification number of the geometry file. 
If a negative number is entered, then the 
most recent geometry file will be used. 




PLOTTER PROGRAM 


PROG : 
USER: 


Enter 7,ero to terminate execution. 

ID2 

Identification number of AIM file- Enter a 
nonzero number only if the control points are 
to be plotted (see ICONPT below) and if the 
control points have been changed by the 
influence matrix program. If .a negative 
number is entered, then the most recent AIM 
file will be used. Enter zero if no AIM file' 
has been created or if the control points 
have not been changed by the influence matrix 
program or if the control points are not 
going to be plotted. 

ENTER ISPEED,LDEV/SCA1E 

Enter ISPEBD,LDEV. 

Enter SCALE (on a new line or card) . 

ISPEED 

Enter 0 for 15 cps EBCDIC plotter. Enter 10 
or 30 for 10 or 30 cps ASCII plotter. See 
ref. 2 for further explanation if needed. 

LDEV — Logical DEVice number 

Enter 0 for on line conversational plotting. 
Otherwise enter an integer other than 5, 6, 
7, 9, or 11 when making a plot file. It. is 
generally advisable to make a plot file 
rather than plotting on line. DDEF commands 
such as the ones previously given (LDSV=3 and 
4) must foe entered for each plot or set ■ of 
plots, of which there may foe several. 

SCALE 

The default value is 2. This will produce a 
plot on a 27,94X43. 18 cm/;- (11X17 inch) page 

when using a 5 mil Seta plotter, When using 
a standard 10 mil Seta plotter or if the 
program is converted for use with a CALCOMP 
PLOTTER, enter 1.0 to obtain a 27.94X43.18 
cmA (11X17 inch) page. SCALE governs the 
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PLOTTER PROGHaM 


PROG : 
USER: 


PROG ; 


size of the entire plot. Compare fig. 2, with 
fig. 1 

EMTER IC0NPT,IC0N5F,rLABEL, ITEXT 
Enter TCONPT , ICORSF, IiaBEL, ITEXT. 


ICONPT 


ftny non-zero 
variable will 
locations to be 
not be plotted. 


integer entered for this 
cause the control point 
plotted. Otherwise they will 
Compare fig. 3 with fig. 1. 


ICONS? 

any non-zero integer will cause flap and flap 
data not to be plotted. Otherwise they will 
be plotted. 


IIABEL 


any non-zero integer will cause a new title 
to be read if TTSXT=0. Otherwise a new title 
will not be read. Compare fig. 5 with fig. 

1 . 

ITEXT 

Any non- zero integer will cause configuration 
information not to be plotted. Otherwise, the 
configuration information will be plotted. 
This information consists of title, , aspect 
ratio, long./lat. ref, length, and taper 
ratio. Compare fig. n to fig. 1. If there 
is a control surface, the configuration 
information will include the hinge line sweep 
angle in degrees, the flap area/wing area 
ratio, and the flap ref. chord/wing ref. 
chord ratio. 

If ILABELtO and ITEXT=0 the program will 
request the user to 'ENTER LABEL' 

Enter new title. The new title may be up to 
42 characters in length and preferably should 
be centered within the 42 character space. 


USER: 



PLOTTEB PROGRAM 


PROG ; 
USER: 


See fiq. s for example. 

ENTER PSISE/RSSISK,FPLIB, CSIZE (OR DEF AULT) 
Enter PSIZE, RSSIZE, RPLAB,, CSIZE. 

PSIZ-F, — Planforra SIZE 

The default value is 10. This will cause the 
planform to he scaled so as to fit in a box 
25.15 CDi^ (9.9 inches) high and 22.86 cni,o (9 
inches) wide. This variable affects both the 
size of the box in which the planform is 
plotted and the size of the control point 
symbols (if any). Compare fig. 6 .to fig. 1. 

ESSIE E — Relative control point Symbol SIZE 

The default value is 15,/ltt. if PSTZE and 
SSSIZE are both defaulted, then the control 
point symbols will be .38 cnifp (.15 inches) 
in height. The actual size of the control 
point symbols is 

. 14*(FACTOH/2.) * (PSIZE/10.) *RSSIZB. Compare 
figs, 6, 7, and 1. This variable is 

irrelevant unless ICONPT/0. 

BPLAB — Relative control Point LARel 

The default value is 15. /14. If PSIZE and 
RPLAB are both defaulted, then the characters 
of the label ’’CONTROL POINT LOCATION” will be 
.38 cm/jf (.15 inches) in height. The actual 

size of this label is equal to 

(.14) * (FACTOR/2. )* (PSIZE/10. )«RPLAB. Compare 
figs. 6, 8, and 1. This variable is 

irrelevant unless ICONPT/0. 

CSIZE — Character SIZE of Title 

The default value is .20. It will produce 
the title and wing data with characters .504 
cm< 5 , (.20 inches) high. A value of .1 will 
produce characters , 254 cm<, (.10 inches) 
high. Compare fig. 9 to fig. 1. 


PROG: 


The program now creates a plot or plot file 
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PHQG: RNOTHER PLOT OF THIS RING? (1 = Y,0=N) 

USER: Enter 1 if another plot is desired. Enter 0 

if another plot is not desired. If another 
plot is to be made the program loops bach to 
the point where ICONPT, etc. is entered and 
input resumes at this point. If another plot 
is not. to be made, control returns to the 
main program to the point where IP1 and ID2 
are to be entered. At this point more plots 
of other planforms may be made or else by 
enteri.ng IDl as zero execution can he 

terminated . 

2.3 BATCH MQO.E---360/67 TSS 

The batch mode operates the same as the 

conversational mode with the sole exception that 
o.n line plotting is not allowed. Therefore LDSV 
must be entered and the appropriate DDEF cards for 
the plot file must be included. 

2.« OTHE.F COMPOTERS 

Remove all calls to GEHFIL, AIHFIL, and LOOKUP and 
use appropriate control cards. These subroutines 
issue DDEFs and release commands making control 
cards unnecessary on TSS with the exception of 
those for making plot files. Only the main 

program needs to be changed.. 



PLOTTEB PROGRAM 


3 COMVEHSION TO CfiLCOriP 

This program was originally designed for a CALCOHP 
plotter and can easily be modified to be run on 
one. To do this, remove calls to PON, POFF, and 
SMODE (or insert dummy subroutines) . Also change 
the defaults for variables as instructed in the 
program listing and modify the call to PLOT. 
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4 .WAKING PLOTS FROM PLOT FILES 


USER: 

SYS: 

USER: 

SYS: 

SYS: 

USER : 

SYS: 

USER: 

SYS: 

SYS: 

USEE: 


KOTALKS (To prevent plot from being ruined by 
system messages.) 

EEDIT P.LOTFILE. ONE 

LOADING PLOTFILE.ONE 

REKEYED 

EDIT 

BRIEF N 
P999999 

A few characters are printed at the terminal 
after which the Zeta. plotter controller 
directs the remaining data to the plotter, 
which makes the plot, 

EOF 

EDIT 

LO.A D P.LOTFILE, TWO (if there is another plot 
file) 

LOADING PLOTFILE.TWO 
REKEYED 


P999999 

A few characters are printed, at the terminal 
after which the Zeta plotter co.ntroller 
directs the remaining 3ata to the plotter, 
which makes the plot- 

BOP 

EDIT 

Either continue making plots as above or else 
type QUIT to get back to TSS. 

OKTALKS 
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+ CQNTRBL POINT LBCRTIBN 

MING JRTR 

tePECT RRTI0 = 2.8284-1 

LQNE./LRT. REF. LENGTH = .T66D6 

TOPER RHTI0 = .33333 

WHRREN 12 PLHNF0RM 

Figure T, '-' :Tiie, inaxiraum plot (base plot) for a wingj 
without' ■ cbptfol ;_ ICONPTfO while all 

other variables are^^d i 
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i^INE IRTH 

R5PEDT RRTIB - 2 SZH4-1 
L0NG./LRT. REF. LENGTH - IhhUh 
TRPER RRTI0 = 33333 


WRRREN 12 PLRNF^RM 

Figure 3, - The effect of changes in the variable' 
IQONPT on the base plot (fig. 1). ICONPT=0 while j 
the other parameters are the same as for the base ' 
plot. 
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+ CBNTRHL P0INT LHCRTiaN 


WINE IIRTR 

RSPECT RRTIQ - 2 S2H4-1 

L0NE./LRT. REF. LENBTH r 76606 

TRPER RRTI0 = .33333 

THIS IS R NEW TITLE 

Figure 5, - The ef fect of ILABEL and; entering a new 
title, ILABEL=1 and a new title was entered while 
all other parameters are the same as for the base 
plot. • 
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LRT. REF, 
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2.B2B4-1 
.7 66D6 
.33333 


WRRREN 12 PLHNF0RM 


Figure 6. - The effect of changes in the variable i 

PSI2E on the base plot (fig. 1). PSIZE=5. while' 
the other parameters are the same as for the base i 
plot,. . I 
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+ C0NTR0L POINT L0CRTI0N 


= z.Bzafi 
= .76606 

= .33333 


WRRREN 12 PLHNF0RM 

Figure 7. - The effect of changes in the variable ’ 

RSSIZE on the base plot {fig. 1). RSSIZE=. 537 
Khile the other parameters are the same as for the < 
base plot, j 


WINOJBIR 
H5PECT RHTia 
L0NE./LFIT. REF. LENGTH 
TRPER RRTI0 
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C WING PLAKfORM PLCTTING PROGRAM. 

C..... THIS PROGRAM WITH ITS SUBROUTINE RUNS A 5-MIL Z£TA PLCTTER 

C WITH SOFTWARt: VERSION 3.3 IMAY 1973). 

C THE PROGRAM CAN BE CONVERTED EASILY TO RUN A CALCOMP PLOTTER BY 

C...... DELETING CALLS TO PDNtPQFP« AND SMGDE. ALSO THE INITiAL CALL 

C.....fO PLOTS OR PLOTFNEEDS TO BE CHANGED. 

C 

_c : 

C FOR THE AMES' VERSION OF THIS PROGRAM ONLY ONE DDEF COMMAND NEEDS 

C.....TO BE GIVEN BEFORE RUNNING THE PROGRAM. THIS IS FOR THE LOGICAL 
C.....UNJT NUMBER GCVEN BY THE VALUE OF LDEV, WHICH IS INPUT IN SUBROUTINE 

C WPLOT. THIS DDEF COMMAND IS NOT NEEDED IF THE PLOTTING IS TO BE DONE 

C.....ON LINE. II. E. LDEV=0J. AN EXAMPLE OF AN APPROPRIATE DDEF COMMAND IS 

C DDEF FTiCFOOit f PIOTFILE 

C PLOTFILE IS A VALID DSNAME OF THE USER'S CHOICE. DO NOT INPUT LDEV AS 

C..... 5, 6, 7,9, OR ii. IN THE ABOVE EXAMPLE LUEV=iO 

_C ^ . 

DOUBLE PRECISION ETA, STHETA 
REAL MACH, LAMOAC 

INTEGER PP, CWTVPE, SWTYPE, UNSYM, R7,R3,UU 

C DIMENSION DUMARl, X, AND Y BY 4 GREATER THAN 

C ETA, SThETA, XSILiP, AND CCROiP. 

DIMENSiOK LABELI^B), DUMARII387), £TA(i83), STHETAi3a3i, 

X iCHi'CPrzOJ, NINDEXI47I, XSILlP(383i, C0RDiP(333), 

2X(3S7), Y13B7) 

DATA iWCRDL /4/ 

DATA R7 /07/ 

DATA R5./5/, Uil/il/ 

10 CONTINUE ^ : - 

WRiT£<6,£000I 

BOOO FORMAT L* ENTER lOi , ID2' ) 

READ (R 5,80 0 1 ) 10I,ID2 

8001 FORMAT! 16.15)' 

IFl IDi.EC.Q) STOP 777 

C - 

C-....ANY IDENTIFICATION LESS THAN 0 CALSES A LOOKUP OF THE CURRENT NUMBER 
C.....ON THE IDENTIF ICATION NUMBER FILE- 


C « e « 

C 

. .SUBROUTINE LOOKUP CONTAINS CALLS TO AMES' LIBRARY PROGRAMS. 


IFMDi.LT.O .OR. ID2. LT.O) CALL LCGKUPUOIR, ID2R , IDB, ID4) 


c 

iFJ IDl.LT.OJ iDi=lDiR 
IF IIDZ.LT.Oi iC2=ID2R 


c 

C « A -A 

c » « « 

..SUBROUTINE GEMfU IS FOR THE AMES' VERSION OF THE PROGRAM ONLY, 
..GEMFIL COMPUTES THE GEOMETRY FILE DSNAME AND ISSUES THE OOEF COMMAND 


c « • • 

..TO THE TSS OPERATING SYSTEM. 


c 

CALL GEM F I LI ID! i 


REWIND R7 

READ IR7i ID, PP, Nf,CWTVPE, SWTVPE, UNSYM, NDL , NOT, 
INN, JJMAX, NFLAPS, LAbEL, NLBL 


NDUMl = JJMAX-i 

READ IR7} (CHICPUi ,I^l,PPJ , IN I NOEXI I ) , I = i , NF) , 

KOUMARl I U ,1 = 1 ,NUUM1) , TANLLL, TANLLR, I OUMAR.1 ( I J , 1 = i ,NDUM 1 i , 



UOUMARiU ) ,1 = 1 tNDUMil , 

2TANLTL, TANLTR, iDUMARiU ), 1=1, NDUMl) , 

3 lETA m ,1=1 , J UMAX) , I STHETA 1 1) , I =1 , J JMAXi , IXSJL iP II ) , 1=1 , J UMAX} , 


1 

V 

\ 

4IC0RD1P U) ,1=1 , JJMAX) , BREF, CBARB2, AR, TR 
IF(NFLAPS.NE.O) PEADLR7) OUMi, LAMDAC, CBFC6W, 
lAFAW, ETAi, ETA2, XLFl, XLF2, CFl, CF2, XSil, XSI2 


C 

if (NFLAFS.NE.OJ LAMDAC=LAMDAC»B7. 2957 795 
IFUD2. EG. 0) GC TO 20 


Cj • 

..THE INFLUENCE MATRIX FILE CONTAINS SOME CONTROL POINT INFORMATION 


C 0 • « 

c « • 

c. WHICH MAY BE DIFFERENT FROM THE DEFAULT CONTROL POINTS ON 
..THE GEOMETRY FCLE. 


c 

c 

C « « • 

..SUBROUTINE AIMFIL IS ONLY FOR THE AMES' PROGRAM VERSION. AIMFIL 


c«.. 

c... 

c 

..COMPUTES THE DATASET NAME OF THE INFLUENCE MATRIX FILE AND ISSUES 
,.TH£- APPROPRIATE DDEF COMMAND TO THE TSS OPERATING SYSTEM. 



CALL AlHf iU iblflDZi 
REWIND Un 


HbAU (UtiJ IDi. f I U4 »NSfcU I L AbEL » NLiJL » PP f C WT yp £ t 
i MM , MREP , iWTYP fc , NM mX , KK t MOOES t UNS Y N , LM IN , LMAX t 
2 JJMAX, JJ ,MALh,i:PS,UECTAO,iCHiCP( I ) f i= i, PP ) , ilMiNOt XU ) = 

f\F=MM 
NN=MREf 

^0_ _ CONTINUE 

c " ------ - ■ . ^ - - - 

C..-..QNLY characters OF LABEL ITITLE) ARE USED. 

C 

NLBL = l^i-^'IwQRLU/iWORDL 

CALL twPLCTUUi ,iU2,PP,NF,NN,JJMAXjNFLAPSfUNSYM, LABEL, NLBL, 
1R5, 

ICHICPV NiNoex, OCMAKi, ETA, XSiLiP, COROIP, 

2X, V, TAMIL, TANLLR, TANlTL , TANLTR, BREF, CbAKB2,AR , TR ,LAMuAC 
^CBFCBW ,aFAW, ETax ,ETA^, XLF 1 , XLFz , CF 1 , CF2 , X Si 1 , XS 1 2 i 
CO TO iO 
END 


I 



,8000 



) c. 


c 


c 
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8001 

c 


c 

c. 


SUBROUTINE WPLCT ( IDi , 1D2 , PP »Nff NNt JJMAX tNELAPS# UNSVM, LABEL , 
lNL6LfR3,CHlCP, NINDEXf DUMARi , ETA, XSILIP, 

ZCQRDiP, X, YtTANLL L ,TANL LR,TANLTL,TANLTR,BREf,C6ARB2, 
3AR,TR,LAKCAC, 

4CBFCBW,APAW, ET Ai , ETA2 , XLF I , XLF2 , CF i ,Cf 2 , XSl 1 , XS 12 ) 

DOUBLE PRECISION ETA 

INTEGER f P, UNSVR, P , R3 ’ 

LOGICAL CONV 
REAL LAN LAL 

DIMENSION LAtiEKNLBU , DUMARI 1 i 
iCHICPIPPJ, NINU£XINFJ» ETAUJMAXJ 
DIMENSiCN XSI LIP( JJMAX) , LORDIP t JJMAXi ♦ 

ixm, y(il ^ ~ 

DATA NCCDEl /+3/ 

DATA TE N / iO.COCb/ 

JJMAX2=JJMAX+2 - - - 

JRATiO = ( JJMAX+i)/tNN+i) 

^«RITEIo,eOOO) 

FORMAT!' ENTER ISPEED , LDEV/ SCALE ’ 1 
READ(R3,,U ISPEED, LDfcV 
READ(Rb, 3 iSCAL E 
.SETTING DEFAULT ‘values. 

IF( ISPEED .Eg. 01 lSP£ED=i5 
IF IS CALL .Eg. 0.1 SCAL.E=2. 

.SET SCALE TO i.O FOR A iO MIL PLOTTER OR FOR CALCOMP. 
CONV=LDEV.EQ.O 

.C ONV^. TRUE. IMPLIES ON LINE CONVERSATIONAL USE WITH ZETA PLOTTER. 
IFtCONVl CALL PLGTSl I SPEED! 

IFi .NOT.LGNVl CALL PLOTF U SP EED , LDEV 1 
.SET CHARACTER AS PECT RATIO TO 1. 

CALL SMCCHO, i.C) 

IF ( CONV 1 CALL POFF 
CONTINUE 

NRlTE(.6,e001) ~ “ 

FORMAT! • ENTER ICONPT , ICONSF , ILABEL, ITEXT ' J 

.NON-ZERC INTEGERS READ BY THE FOLLOWING STATEMENT WILL ~~ 

.CAUSE, Respectively .. 


c CONTROL POINT LOCATIONS TO BE PLOTTED 

FLAP AND FLAP DATA NOT TO BE PLOTTED 

C , . , . , A N£i^ T ITLE TO BE REAP if ITEXT-0 

CONFIGURATION INFORMATION NOT TO BE PLOTTED. 

C 

READ IRSrU iCONPTt iCQNSFt ILABELt ITEXT 

IF (NFLAPS.EQ.Oi ICONSF^i 
IFULAb EL.NE.Oi WRITE(6,8002) 

BQ02 FORMAT!* ENTER LABEL* I 

IFtlLABEL.Nfc.OJ READIR5,2) LABEL 
^ WRITE(6,8003i 

80 V 3 FORMAT! ■ ENTER PSIZE i RSS iZ£ » RPL AB, CSl ZE lOR DEFAU LT J 

^ READ (R5,3i PS i ZE ,RSS1 Z£ , RPLABt CSIZE 

^ IF (CONVI CALL PCN 

IFIPSIZE .EQ. 0.) PSIZ£=iO. 

C SET THE FOLLOWING DEFAULTS TO i.Of .21t AND UO FOR CALCOMP 

IFIRSSIZE .EQ. 0.lRSSIZE=i5./i4. 

IF tCSlZE .EQ. C.JCSIZE-.20 

• IF I RPLAE.EU.0.IRPLAB=i5 /14. 

FCTRl=PSiZe/lO. 

C..«. ^.PLOTTING IDtNT if iCATlON NUMBE RS AND SETTING PEN TO MIDDLE OF PAGE. 

, CALL FACTOR ISCALC) 

‘ CALL NUMBERlO.i C., .2, FLOAT UDl ) ,90. , -il 

CALL NUMBERIQ. ,1.0, FLOAT ( I D 2 ) ,90. , -i) 

\ CALL PLGTIO., i.4, 3} 

CALL PLOT (0., 5., 3J 

CALL PLOT (.23, 5., -31 

C DRAWING THE FREE STREAM ARROW 

CALL FACTCR(SCALE=«-FCTRi) 

CALL PLCTIO.O, -0.05, 3i 

CALL PLCT(0.0,+.05,2i 
CALL PLGTi.65,+.GB,2J 

CALL PLCT(.63,-»-.i2,2i 

CALL PLCTU.O, +.00,21 
CALL PLOll.oS, -.12, 21 

CALL PLCTI .53,-..CS, /) 

CALL PLCTi.00,-.05,2l 
CALL PLCTi.OO, .00,31 


C.,... RESET ORiGiN AT CENTER OF WING PLOTTING AREA. 

CALL PLCT l6.05,C.,-3i 

C THE LEADING EDGE WILL BE STORED IN 1 I XI f i ,J JMAX»^ j 

C,....FROM RIGHT TO LEFT, 

C THE TRAILING EDGE WILL BE STORED IN ( I DUHAR i I , i , J JMAX+3 ) 

C,...,FRQM LEFT TO RIGHT. 

•DO 20 J=i,JJMAX 
INDEX=JJRAX2-J 

xu-*-ii=xsiLiprji 

DUMARU INDEX! =XSILIPU i+CQRD IP( J 3 
VIJ+1) =ETAlJj 

20. CONTINUE 

-V R^ X(U=X,SlLiP(U + U.DO-ETAUi i^TANLLR 

.^XI JJMAX2I=XSiLiPUJMAXi + (1 .DO + ET A 1 JJMAX i ) ’i'T ANLLL 

DUMARU JJHAX/J = DUMARi (0 JNAX» X J l.OO-ETAUJ l*TANLTR 

DUMARU ii=UUMARi (2) + U .00+ETA ( J JMAX U*TANLTL 
y(U = i. 

2 y(VJHAX 2 i=-l. 

• DETERMINING MINIMUM AND MAXIMUM VALUES* 

;■ . X{VIN = XUJ 

. i.-- XMAX=DUMARim 

y DO. 30 J = 2,JJMAX2 

" xk lN=AMIM {XI J J I XMIN) 

• XMAX=AMAX1 (DUMARU JUXMAX I 

30 CONTINUE 

XRANGE-XMAX-XM.IN 

XAVG=I XMAX-«-XMIN jy2, 

C.,...THe FOLLCWiNG IS BASED ON A 9 INCH FIGURE WIDTH AND 
C 9.9 INCH FIGURE HEIGHT. 

YRANGE=2. 

FCT R2= A M I N 1 i 9 . / y R ANGE i 9 . 92 XR"an"gE I 
CALL FACTOR I SC ALE^FCT Ri*FCTR2 ) 

C..... PLOTTING LEADING EDGE . 

XU JMAX+3)=XAVG 
Xf J JMAX+4J = i . 

Y ( UJMAX-»3i-Q. 

YU JMAX + 4i=i. 

CALL LiNElX,YUJMAX2,ltO,0) 


PLOTTING L£FT SICE EObE. 

CAU. PLOT IDUMAgiUi-XAVG, -Yilit 2i 

C PLOT T lNb trai ling £ DGE, . 

DUMARi < J JMAX+3T =XAVG 
DUMARil JJt^AX+4J=l. 

Y(JJMAX^^AJ=-i. 

CALL LINETUUMARi.V, JjMAX2f i,OtOT 
C. .... PLOTTING RIGHT SIDE EDGE. 

CALL PLOTIXI U-XAVG>YUJ 

If { iCONFT.EQ.O i GO TO 200 
SSUe=.iA*RSSI ZE/FCTR2 

C.... .PLOTTING THE CONTROL POINTS. ’ 

DO 150 N=i,Nf 

INDEX =NiNDEX(NJ^JRATiO 

YCP^ETAI INDEX) 

DO 90 P-i >PP 

IFIMOOIN,2) .EQ. OiI=PP+i-P 

/ if(M0D(Nt2} .N£. OU = P 

, XCP=X(iND£X+iJ +CHICPU J^COROIPUNOEXJ - XAVG 

. CALL SYNEOL IXCP»yCP,SSiI£» NCOOEl, 0.» -i) 

y.;. .^-90/'' CONTINUE 

• CONTINUE 

" 200 CONTINUE 

' If UCQNSf.NE.Oi GO TO 400 

g XTl=XLf i*Cfi-XAVG 

^ XT2=XLf2+Cf2-XAVG 

XS£1 = XSU-XAVG . 

XS£2=XSi2-XAVG 

If (NfLA PS-21 22 0*300 1400 

220 CONTINUE 

Co... . PLOTTING A SINGLE FLAP 

IF! UNSVM.NE.O) GO TO 260 

plotting a s ingle* SyMME TR ICAL FL AP * WHICH MA y 

C.....HAVE A KINKED HINGE LINE.’ 

CALL PLGUXT2 *-ETA2,3j 

CALL PLOT IXS£2*-ETA2 *21 

CALL PL0T(XS£2, G. *21 
CALL PLCTUSE2* ETA^,,EJ 


260 

CALL PLOTixTE , ETA2f2J 

GO TO 400 

CONTINUE 

> 

C « • « i 

..PLOTTING THE SitsGLE FLAP ON AN UNSYMMETRl CAL WING 
CALL PLCTtXTl ,ETA1,3J 



CALL PLGUXSei , ETAi ,2J 



CALL PLGTiXSt2,ETA/»2J 
CALL PLCKXT^ ,ETAG,2) 
GO TO 4CG 


300 CONTINUE 

C..... PLOTTING A SYMNETRiCAL PAIR OF FLAPS ON A SYMMETRICAL 

C.«^'..WING 

CALL PL0TIXT2 ,-ETA2,3J 
CALL PL0T(XSE2»-ETAE,2i 

CALL PLOT tXSEIi-£TAi,2) 


CALL PLCTTXTl ,-ETAi,2J 
CALL PLOT ( XT i , ETA i ,31 
CALL PLCTLXSEit ETAi,2i 


L 

i 

O 

o 

CALL PLGTUSE2, ETA2,2] 
CALL PLCTIXT2 , ETA2f2I 
CONTINUE 



'■M C • « • 

..THE PLANFORM PLOT IS FINISHED. 



\j 

CALL FACTOR iSCALE*FCTRU 
IF UCONPT .£Q. 01 GO TO 420 



\ 

CALL SyMeCLI3.13, .75» .i4*RSSUE, NCODEi, 

190. t -i) 

CALL SYMBOL 15.2, i.i, .14*RPLAB, 22HC0NTR0L POINT LOCATION, 



420 

c « * « 

i 90 . , 22 ) 

CONTINUE 

..PLOTTING CONFIGURATION INFORMATION 



CALL PLCT!5.2,0. ,-3) 

IFdTEXT .£Q. Oj Gu TO 460 

C ^ 

c « • • 
‘ c • . ^ 

..THE PEN SHOULD BE AT ( .25+11 .25*FCTR1 , 5.1 INCHES 
..RELATIVE TO THE STARTING POINT. THE PEN ^^ILL BE 



c « « « 

..MOVED TO A NEW STARTING POINT ON A NEW PAGE. 




CALL FACTOR! SC A LEi 

C.*-..THE FOLLCwlNG ASSUMES A 17,00 INCH PAGE LENGTH, 


CALL PL0TUL>.75-ii.-i5*fCTRi, 0., -j) 

CALL PLOKO.f -5., -3i 

GO TO 60C 

4B0 

CONTINUE 

FCTR3=CSiZ£/ .21 

CALL FACTOR I SCAL£’i'FCTR3 j 


CALL PLOTi.i^i 

CALL SYMBGLi .30,0.0OT.2i 1 9HWING DATA, 90., 9j 
CALL PLOT (.35 ,1.89,3) 


CALL PLCT(.35 ,0.00,2) 

CALL SYM6DL10.6 ,G. , .2i,12HASPECT RATIO ,90 12 ) 

CALL SYME0L(0.9,0., .2i,22HL0NG./LAT. REF. LENGTH 

f 90 >• t i 

XC = i.2 

CALL SYMeOLii.2,C.,.2i,liHTAPER RATIO ,90. ,iiJ 

[F( ICONSF.NE.OJ t»0 TO 500 


CALL SYHB0LU.5 ,0.,.21 ,9HFLAP DATA, 90. ,9) 
CALL PLCTU.55,i.89,3) 

CALL PLCTU. 55 ,0.00,2) 



CALL SYMBDLU.8,0. , .21,22HHiNG£ LINE SWEEPiDEG.) 
CALL SVMbOLU.i ,0. ,.21 ,19HFLAP AREA/WiNG AREA, 90 
CALL SYHB0LI2.4 ,0. , .21 , 

,90. ,22) 
,,19j • 

500 

131HFLAP REF. CHORD/WING REF. CHORD, 90., 31,) 
XC=2.4 
CONTINUE 


V 

NJ 

\ 

XC=XC^-,9 

CALL SYMbQL(XC, C. ,-2l,LA6EL,90.,42i 
XC=XC-.3 


VC=6.58 

iF( ICONS F.NE.O) GO TO 510 

CALL S VNL0LI2. 4, YC,. 21, 1H=, 90., I) 

510 

CALL SVNeOLt 2.1 ,YC,.2l ,1H=,90.,1 J 
• CALL S YMBOL (1. 8, YC,. 21, IH^, 90., IJ 
CALL S VM60LU. 2, YC,. 21 ,iH=,90-,l) 


CALL SYMEGL(0.9, YC,.2i,iH-,90.,l) 

CALL S Y M 60L 10.6, VC , * 21 , 1 H= , 90 . , 1 i 

YC=7.42 ^ 

C 

..TEN IS SLIGHTLY GREATER THAN TEN BECAUSE ALQGiO 

IS NOT QUIT 




c . . . 

..ACCURATE ENOUGH 


c 

CALL NUMBER 1 0. 6 , YC-.21 ’i^FLOAT i IFI X( ALOGIO ( AMAXU AR«T EN , - 11 ) J J i+.2i, 


1.21,AR»yC. ,5) 

CALL NUHBtRl0.9,YC--zi’i'FLOATiiflXlALOGiO(AMAXilCBAR62*TeN, 

1 . iin ) J + ,2i r . _ . . . . „ 

1.21,CBARBz,<30. ,5) 

CALL IMUMBERii.2 tYC-,21*FLGATUFlXi ALOGlOi AMAXUTR *TEN, 
X .iii J j ) + .21, 

1.21,fR,SG. ,5) 

XC=i.2 

1F( iCONSF.NE.Oi CO TO 520 

IF(A8S(LAMDACJ -LT.5.E-0] CALL SYMBOL iXC ,YC , .21 , 7H .00000 , 

ISO., 7J 

IF< ABSiLAMOACi .LT.5.E-6J GO TO 515 _ 


IFILAMDAC.GT.0,1 CALL NUMBERU.B, YC+.21- 

1 .21*FL0AT( IFiX 1 ALOClO(AMAXULAMOAC=i‘TEN 

2 ,.111 J )1 ,.2i,LAMDAC,90.,5) 



iF(LAMDAC-LT.O.i CALL NUMBERU.B,YC- 
1.2i^FL0ATUFIXULQGi0i AMAXi(-LAMDAC*TEN 

I ,.111 ) J ) ,.2i ,LAMDAC,S0. ,5) 


rsis 

1 

CONTINUE 

CALL NUMB£Ri2. i ,VC-.2i>^FL0ATI IFl X i ALOGIO I AMAXil AFAW^TEN , 
1 .111 1 1 1 + .21, 


V 

■ \ 

i.2i,AFAV» ,90. ,31 

CALL NUM8ERI2.4, YC-.21*FL0ATHFIX(ALQG10IAMAX1(CBFCBW*TEN, 

1 .11)111 + .21, _ _ 


520 

1.21,CBFCBis,90. ,51 
XC=2-4 

CONTINUE _ 

■ 

XC = XC+.b . 

CALL PLCTtXC, 4.A1, 3j 

CALL PLGTi3.85, 4.41, -3) 

C 

C « e A 

c • • « 

..THE PEN SHOULD 6E AT I .25+11 .25*FCTft 1>4 .=pFCTR3, 5. I 
..INCHES RELATIVE TO THE STARTING POINT. 


C . . . 

c 

..THE PEN XILL BE MOVED TO A NEW STARTING POINT ON A NEW PAGE. 



K> c^An 


CALL FACTORCSCALEj 

THE FOLLGWiNC STATEMENT ASSUMES A 17.00 INCH PAGE LENGTH. 

CALL PLQT U6 1 i - 2^»FC T R 1-4.0* f CTR3 >0. f-3} 

CALL PLOT 10,, -5., -3) 

600 CONTINUE 

IFtCONVi CALL POFF 

i^RlTE{ 6 , 80 O 6 i 

8006 FORMATi* ANOTHER PLOT OF THIS WlNG? (i=Y,0*N0)' i 

READ (R5,li MORE 

IF (MORE ,NE, 0) GO TO 10 
IF(CONV) CALL PON 

CALL PLOT to., 0., 4991 

RETURN 

i FORMAT! 16151 

.....THE FOLLCkjING ASSUMES AN INTEGER WORD LENGTH OF 4 CHARACTERS. 
.....CHANGE AS REQUIRED BY THE COMPUTER USED. 

FORMAT U 6 A4i 

FORMATI8F10.0J 

END 





